#!/bin/sh

#padezhi: I R D V T P
SLOVAR="slovar.db"


if [ $# -eq 0 ];then
	echo "error: need input file"
	exit 1
fi

GLOBAL_RET=0
TEXT=""

FormatInput ()
{
	echo -n "formating text..."
	GLOBAL_RET="`cat $1 | sed -r -e 's/[.(]/\n/g'| sed -r -e "s/^ *//"|
		  sed -e "s/^-//"|sed -e "/^$/d" |sed -e '/)/d'  |
		  sed -e "s/[IXV0-9]/1/g" | sed -r -e "s/1+/1/g" |sed -r -e "s/$/ /"`" 
	echo "ok"
	return $TRUE
}


FLD_CHR=2
FLD_NAF=3

UNK="---"


PMAS="I R D V T P"
#out: "{chast_rechi*nach_forma*chislo*padezh|}"
#явиться явился явилась явилось явились явившись явишься явится явимся явитесь явятся явись явитесь явясь явлюсь явивший явящий 



ParseSentence ()
{
# У забора юная фигуристка сталкивалась с Анной, няней и сиделкой Алисы,и общалась с ней ровно семь минут. Вообще-то Анна должна приходить к ней в семь пятнадцать, но живет так далеко, что не успевает воврем и приезжает чуть позже девяти. Алиса об этом молчит и никому не расскажет маленький секрет Анны.
	local line="$1" n i out="" sl formy chr chi nf half nsl

	i=1
	n="`echo "$sent" | wc -w`"
	while [ $i -le $n ];do
		sl="`echo "$line" | cut -d " " -f $i`"
		formy="`grep -E " $sl " $SLOVAR`"
		if [ $? -eq 0 ];then
			chr="`echo "$formy" | cut -d " " -f $FLD_CHR`"
			nf="`echo "$formy" | cut -d " " -f $FLD_NAF`"
			if [ "$chr" = "X" ] || [ "$chr" = "-" ];then
				out="$out|$UNK"
				continue
			else
				half="`echo "$formy" |sed -e "s/ $chr / _ /" | cut -d '_' -f 2|sed -e "s/ $sl / _ /" |cut -d"_" -f 1`"
				nsl="`echo "$half" | wc -w`"
				nsl=`expr $nsl + 1`
				if [ $nsl -gt 6 ];then
					chi="M"
					nsl=`expr $nsl - 6`
				fi	
				echo "$PMAS" | cut -d " " -f $nsl
			fi
		else
			out="$out|$UNK"
		fi
		i=`expr $i + 1`
  	done

}


FormatInput "$1"
TEXT="$GLOBAL_RET"

i=1
while [ 1 -eq 1 ];do
	line="`echo "$TEXT" | sed -n "$i p"`"
	ParseSentence "$line"






	i=`expr $i + 1`
done

















echo "$mas"
